home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DELCOL.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  408b  |  25 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. SUB DeleteColumn (ColNum%, Attr%)
  5.  
  6.     REDIM Storage%(2000)
  7.  
  8.     IF ColNum% > 80 OR ColNum% < 1 THEN
  9.         EXIT SUB
  10.     END IF
  11.  
  12.     IF ColNum% <> 80 THEN
  13.         GetCol% = ColNum% + 1
  14.         GetScreen Storage%(1), 1, GetCol%, 25, 80
  15.         PutScreen Storage%(1), 1, ColNum%, 25, 79
  16.     END IF
  17.  
  18.     FOR j% = 1 TO 25
  19.         ColorPrint " ", j%, 80, Attr%
  20.     NEXT j%
  21.  
  22.  
  23. END SUB
  24.  
  25.